www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminKernel\D_update_all_pages_before_e.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <DIV id="loading_msg" style="position:absolute; z-index:200; top:210px; left:184px; background-color:#ffffff; width: 306px; height: 22px;" > 请稍后......</div> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <script type="text/javascript" src="../../inc/zxml.js"></script> <!--#include file=../../inc/ajaxLIB_no_loader.asp--> <!--#include file=../../inc/ND_class_function.asp--> <% if find_dataw("qitashezhi123","0",6)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <% Server.ScriptTimeout=9999999 session.timeout=600 call all_update_qiantai_web_filenames_config_xml() ' 检测组件变量 dim isobj,VerObj,TestObj '检查组件是否被支持及组件版本的子程序 sub ObjTest(strObj) on error resume next IsObj=false VerObj="" set TestObj=server.CreateObject (strObj) If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议 IsObj = True VerObj = TestObj.version if VerObj="" or isnull(VerObj) then VerObj=TestObj.about end if set TestObj=nothing End sub ObjTest(fssoo_nd_var_str_x_customx) if not isobj then sss1="检测中:对不起,由于你的系统不支持FSO组件,所以无法使用本后台" %> <script language="javascript"> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",300); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); </script> <% response.end else sss1="检测中:支持FSO......" nwhen_usinga=Application("newdsoft_web_user_mdb_when_using") nis_usinga=Application("newdsoft_web_user_mdb_using") maxxx_tiimeout_a_mdb=60*10 if (not isempty(nwhen_usinga)) or nwhen_usinga<>"" or isDate(nwhen_usinga) then If DateDiff("s",nwhen_usinga,Now())>maxxx_tiimeout_a_mdb and nis_usinga="yes" Then Application.Lock() Application("newdsoft_web_user_mdb_using")="no" Application.UnLock() end if end if if not isDate(nwhen_usinga) then Application.Lock() Application("newdsoft_web_user_mdb_using")="no" Application("newdsoft_web_user_mdb_when_using")=now() Application.UnLock() end if if Application("newdsoft_web_user_mdb_using")<>"yes" then Application.Lock() 'Application("newdsoft_web_user_mdb_using")="yes" Application("newdsoft_web_user_mdb_using")="no" Application("newdsoft_web_user_mdb_when_using")=now() Application.UnLock() else %> <script language="javascript"> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>对不起,当前有其他人正在进行 锁定性数据库读写操作,请稍后再重试(最多需等待11分钟)....</font>';",100); alert("对不起,当前有其他人正在进行 锁定性数据库读写操作,请稍后再重试(最多需等待11分钟)"); </script> <% response.end end if %> <script language="javascript"> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",0); setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载要更新的标签列表中....</font>';",800); var okeeee=0; var needdo=1; var w ; var w2 ; var a=AJAXcreateXMLdocument(); a.onreadystatechange=function(){ if (a.readyState==4) { if (a.parseError.errorCode!=0){ alert("数据读取错误,请重试!!,请关闭所有占用数据库的软件如ACCESS,再重新进入本功能"); } var root=a.documentElement; var staut=root.firstChild.text; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载要更新的自定义标签列表成功......"+"</font>';",1500); okeeee=1; sys_label_get(); } } a.async=true; //异步模式 a.load("../adminLabel/D_ajax_update_custom_label_list_to_mdb_from_files.asp"); setTimeout("err_timeout();",38000); function err_timeout(){ if (okeeee==0){ alert("你可能打开了数据库软件ACCESS等,请先关闭它,再刷新本页,或者数据库已锁定,无法进入后台!"); } } function sys_label_get(){ setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载要更新的系统标签列表中....</font>';",800); var a=AJAXcreateXMLdocument(); a.onreadystatechange=function(){ if (a.readyState==4) { if (a.parseError.errorCode!=0){ alert("数据读取错误,请重试!!"); } var root=a.documentElement; var staut=root.firstChild.text; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载要更新的系统标签列表成功......"+"</font>';",1500); //循环延时,防止卡住: w = setInterval("do_kernel()",40); } } a.async=true; //异步模式 a.load("../adminLabel/D_ajax_update_sys_label_list_to_mdb_from_files.asp"); } var ended=0; var ended2=0; var pos=""; var msg1=""; var a2=AJAXcreateXMLdocument(); a2.onreadystatechange=function(){ if (a2.readyState==4) { if (a2.parseError.errorCode!=0){ alert("数据读取错误,请重试!!"); } var root=a2.documentElement; var ss1=root.firstChild.text; var ss2=root.childNodes[1].text; var ss3=root.childNodes[2].text; if (ss1==1){ended=1;} pos=ss2; msg1=ss3; needdo=1; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在更新 "+msg1+"......"+"</font>';",1500); if (ended==0){ } else { setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"现在正在统计要编译的文件列表,可能需要较长时间,请稍后......"+"</font>';",1500); templates_list_get(); } } } function do_kernel(){ if (needdo==1&&ended==0){ needdo=0; a2.async=true; //异步模式 a2.load("../adminLabel/D_ajax_update_label_to_mdb_from_files_by_step.asp?pos="+pos); } } function templates_list_get(){ setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载要编译的 子模板 列表中....</font>';",800); var a=AJAXcreateXMLdocument(); a.onreadystatechange=function(){ if (a.readyState==4) { if (a.parseError.errorCode!=0){ alert("数据读取错误,请重试!!"); } var root=a.documentElement; var staut=root.firstChild.text; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载要编译的子模板列表成功...,编译 子模板中..."+"</font>';",1500); setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>开始编译 子模板 ....</font>';",800); //循环延时,防止卡住: w2 = setInterval("do_kernel_complie()",40); } } a.async=true; //异步模式 a.load("D_ajax_get_all_pages_list.asp?ppath=<%=request("ppath")%>"); } needdo=1; var pos22=""; ended2=0; var stu="ok"; var a22=AJAXcreateXMLdocument(); a22.onreadystatechange=function(){ if (a22.readyState==4) { if (a22.parseError.errorCode!=0){ alert("数据读取错误,或服务器过载(如果总过载,请在自己的本地计算机上运行本系统并进行此操作),请重试!!"); } var root2=a22.documentElement; var s2s1=root2.firstChild.text; var s2s2=root2.childNodes[1].text; var s2s3=root2.childNodes[2].text; var s2s4=root2.childNodes[3].text; if (s2s1==1){ended2=1;} pos22=s2s2; msg1=s2s3; needdo=1; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在编译 "+msg1+",id="+pos22+"......"+"</font>';",1500); if (ended2==0){ } else { <%if request("thtm")<>"" then%> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"刷新asp页面完成,即将进入生成htm静态页的操作......"+"</font>';",1500); setTimeout("self.location='../adminHTML/<%=replace(replace(request("thtm"),"$1$","?"),"$2$","&")%>';",500); <%else%> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"生成与刷新页面完成......"+"</font>';",1500); setTimeout("self.location='D_chucuo_jilu.asp';",1000); <%end if%> } if (s2s4!="ok"){ if (s2s4.indexOf("delete_main_shibai")==-1){ stu="shibai"; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"编译模板出错,请重试...(出错原因:"+s2s4+")</font>';",1500); alert("编译模板出错,请重试...(出错原因:"+s2s4+")"); } else { var ssssdfaa=s2s4.substring(19,s2s4.length) setTimeout("document.all.loading_msg.innerHTML='<font color=#ff0000>"+"删除 "+ssssdfaa+"目录失败,可能此目录正在被使用,将忽略此错误,继续编译)</font>';",100); } } } } function do_kernel_complie(){ if (needdo==1&&ended2==0&&stu=="ok"){ needdo=0; a22.async=true; //异步模式 a22.load("D_ajax_do_e.asp?pos="+pos22); } } </script> <% end if %>